program Server;

uses
  Forms,
  Windows,
  uDebug,
  uDataModule in 'uDataModule.pas' {Container: TDataModule},
  uMainForm in 'uMainForm.pas' {gtServerMainForm: TTntForm},
  uSetPasswordForm in 'uSetPasswordForm.pas' {PasswordForm: TTntForm},
  uDatabaseAPI in 'uDatabaseAPI.pas';

{$R *.res}

begin
  if ProcessesCount(ParamStr(0)) > 1 then
    Exit;

  Application.Initialize;
  Application.HelpFile := 'GoldenTemp.chm';
  Application.CreateForm(TContainer, Container);
  Application.CreateForm(TgtServerMainForm, gtServerMainForm);
  Application.ShowMainForm := False;
  Application.Run;
end.
